Activating respositories
library(ggplot2)
ggplot(midwest) +
aes(x = percadultpoverty) +
geom_histogram(bins = 30L, fill = "#112446") +
theme_minimal()

##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
p1 <- ggplot(midwest) +
aes(x = percchildbelowpovert, y = percadultpoverty) +
geom_point(shape = "circle filled", colour = "#106DC6") +
labs(
x = "PCDP",
y = "PDP",
title = "YPDC's",
subtitle = "Peer Mentorship"
) +
ggthemes::theme_foundation()
ggplotly(p1)
library(ggplot2)
ggplot(midwest) +
aes(x = state, y = category, fill = percchildbelowpovert) +
geom_tile() +
scale_fill_viridis_c(option = "viridis", direction = -1) +
theme_classic() +
facet_wrap(vars(state))
